﻿
Partial Class Dialogos_frmPopUpBusquedaUnidades
    Inherits System.Web.UI.Page
    'Private oDvUnidad As DataView
    ''Private oDsUnidad As New DataSet

    'Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '    If Not Page.IsPostBack Then
    '        Response.Cache.SetCacheability(HttpCacheability.NoCache)
    '        Response.Cache.SetExpires(DateTime.Now().Subtract(New TimeSpan(1, 0, 0)))
    '        Response.Cache.SetLastModified(DateTime.Now)
    '        Response.Cache.SetAllowResponseInBrowserHistory(False)
    '        Session.Timeout = 1000
    '        fnRecuperarValoresURL()
    '        fnCargarUnidad()
    '    End If
    'End Sub
    'Private Sub fnRecuperarValoresURL()
    '    If Request.QueryString("Unidad") Is Nothing Then
    '        Me.txtUnidad.Text = String.Empty
    '    Else
    '        txtUnidad.Text = Request.QueryString("Unidad")
    '    End If
    '    If Request.QueryString("Compania") Is Nothing Then
    '        hidCompania.Value = String.Empty
    '    Else
    '        hidCompania.Value = Request.QueryString("Compania")
    '    End If
    'End Sub
    'Public Function fnCargarDataSet(ByVal psUnidadMedida As String) As DataSet
    '    Dim oDs As New DataSet
    '    Dim sError As String
    '    Dim bOk As Boolean

    '    Dim oNegUnidadMedida As New srvNegUnidadMedida.srvNegUnidadMedida
    '    bOk = oNegUnidadMedida.fnListar(2, hidCompania.Value, psUnidadMedida, oDs, sError)
    '    If Not bOk Then
    '        lblMensaje.Text = sError
    '    End If
    '    Return oDs
    'End Function
    'Private Sub fnCargarUnidad()
    '    Try
    '        Dim psUnidad As String
    '        If Not (txtUnidad.Text.Trim.Equals(String.Empty)) Then
    '            psUnidad = txtUnidad.Text.Trim
    '        Else
    '            psUnidad = ""
    '        End If
    '        oDvUnidad = fnCargarDataSet(psUnidad).Tables(0).DefaultView
    '        'Cache("dvw_Unidad") = oDvUnidad
    '        Session("dvw_Unidad") = oDvUnidad
    '        Me.grdUnidad.CurrentPageIndex = 0
    '        EnlazarDatagrid(Me.grdUnidad, oDvUnidad)
    '    Catch ex As Exception
    '        lblMensaje.Text = C_MSG_ERROR_INESPERADO
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + ex.StackTrace)

    '    End Try
    'End Sub
    'Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click
    '    fnCargarUnidad()
    'End Sub
    'Private Sub grdUnidad_PageIndexChanged1(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles grdUnidad.PageIndexChanged
    '    'oDvUnidad = Cache("dvw_Unidad")
    '    oDvUnidad = Session("dvw_Unidad")
    '    Me.grdUnidad.CurrentPageIndex = e.NewPageIndex
    '    EnlazarDatagrid(grdUnidad, oDvUnidad)
    'End Sub
    'Private Sub grdUnidad_SortCommand1(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles grdUnidad.SortCommand
    '    Try
    '        'oDvUnidad = Cache("dvw_Unidad")
    '        oDvUnidad = Session("dvw_Unidad")
    '        If ViewState(e.SortExpression) Is Nothing Then
    '            oDvUnidad.Sort = New System.Text.StringBuilder().Append(e.SortExpression).Append(" asc").ToString
    '        Else
    '            If ViewState(e.SortExpression).Substring(ViewState(e.SortExpression).Length - 3, 3) = "asc" Then
    '                oDvUnidad.Sort = New System.Text.StringBuilder().Append(e.SortExpression).Append(" desc").ToString
    '            Else
    '                oDvUnidad.Sort = New System.Text.StringBuilder().Append(e.SortExpression).Append(" asc").ToString
    '            End If
    '        End If
    '        ViewState(e.SortExpression) = oDvUnidad.Sort
    '        EnlazarDatagrid(Me.grdUnidad, oDvUnidad)
    '    Catch ex As Exception
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + ex.StackTrace)
    '    End Try
    'End Sub

End Class
